home *** CD-ROM | disk | FTP | other *** search
/ World of Education / World of Education.iso / world_f / fdplot.zip / PLOTN.BAS < prev    next >
BASIC Source File  |  1992-01-06  |  2KB  |  61 lines
  1. 100 CLS : PRINT " ATI Function/data plotting program"
  2. 105 PRINT"   UNREGISTERED SHAREWARE":PRINT
  3. 110 DIM FUNCT$(2), DATX(100), DATY(100)
  4. 115 DEFINT I-N
  5. 120 PRINT "Plot a function (Y/N)? _";:GOSUB 8000
  6. 121 IF A$<> "Y" AND A$<> "N" THEN 120 ELSE NF$=A$
  7. 130 PRINT "Plot a data set (Y/N)? _";:GOSUB 8000
  8. 131 IF A$<> "Y" AND A$<> "N" THEN 130 ELSE ND$=A$
  9. 133 IF NF$="N" AND ND$="N" THEN CHAIN "MENU"
  10. 134 X$=CHR$(34)
  11. 135 SHELL "TYPE T2.BAS > T.BAS"
  12. 136 SHELL "ECHO 490 NF$="+X$ + NF$ +X$+ ":ND$=" +X$+ ND$+X$ + " >> T.BAS":
  13. 137 SHELL "ECHO 491 RETURN >> T.BAS"
  14. 145   'Function entry
  15. 150   IF NF$="N" THEN SHELL "ECHO 1100 RETURN >> T.BAS": GOTO 265
  16. 175     PRINT : PRINT " Enter function in BASIC format as:"
  17. 178     PRINT "  Y=f(X)       (Example: Y = SIN(X^2) + 3*X^3 + 5*X/7 + 2 )"
  18. 183     INPUT ""; TEMP$
  19. 194     FUNCT$(1) = STR$(1100) + " X=T"
  20. 195     FUNCT$(2) = STR$(1105) + " " + TEMP$
  21. 196     I1 = INSTR(1, TEMP$, "Y=")
  22. 236     SHELL "ECHO "+ FUNCT$(1)+" >> T.BAS"
  23. 238     SHELL "ECHO "+FUNCT$(2)+" >> T.BAS"
  24. 240     SHELL "ECHO 1199 RETURN >> T.BAS"
  25. 245   'Function defined.
  26. 265 REM End function definition/entry
  27. 270 REM Data-set entry/storage to disc
  28. 275 IF ND$ = "N" THEN 450
  29. 285     PRINT "Is data-set already stored on disk? (Y/N) _";:GOSUB 8000
  30. 295     IF A$ <> "Y" AND A$ <> "N" THEN 285
  31. 300     IF A$ = "N" THEN 305 ELSE 440
  32. 305     'THEN
  33. 325       PRINT "Enter data-set in pairs of numbers, X,Y";
  34. 330       PRINT " , signal end of data with @,@"
  35. 335       A$ = " ": B$ = " ": J = 0
  36. 340       WHILE A$ <> "@"
  37. 345         J = J + 1
  38. 350         PRINT "X"; MID$(STR$(J), 2); ","; "Y"; MID$(STR$(J), 2); " ";
  39. 355         INPUT A$, B$
  40. 360         IF A$ = "@" THEN 380
  41. 365           DATX(J) = VAL(A$): DATY(J) = VAL(B$)
  42. 380       WEND
  43. 385       DTSN = J - 1
  44. 390       REM STORE ON DISC
  45. 395       FM$ = "PLOTD"
  46. 400       OPEN "O", #1, FM$
  47. 405       PRINT #1, DTSN
  48. 415       FOR J = 1 TO DTSN
  49. 417         PRINT #1, DATX(J); ","; DATY(J)
  50. 425       NEXT J
  51. 430       CORL$ = "-2": PRINT #1, CORL$
  52. 435       CLOSE #1
  53. 436       PRINT : PRINT "New data saved on disc.": PRINT
  54. 440     'ENDIF
  55. 450 REM End data def/entry
  56. 453 PRINT "Creating Plot program, ...... please wait ......"
  57. 520 SHELL "TYPE T3.BAS >> T.BAS": CHAIN "T.BAS"
  58. 8000 A$=INKEY$:IF (A$="") GOTO 8000
  59. 8010 IF (ASC(A$)> 96) THEN A$=CHR$(ASC(A$)-32)
  60. 8020 PRINT A$: RETURN
  61.